﻿Imports ControleMatricula.Negocio

Public Class FrmFuncionario

    Public Const strIncluirConfirmar As String = "Confirmar &Inclusão"
    Public Const strIncluir As String = "&Incluir"
    Public Const strAlterarConfirmar As String = "Confirmar &Alteração"
    Public Const strAlterar As String = "&Alterar"
    Dim db As New DataClassesDataContext()
    Dim RowFuncionario As SPFuncionarioConsultarResult
    Dim RowFuncionarioIncluido As SPFuncionarioIncluirResult

    Private Sub btnConsultar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsultar.Click

        Dim FrmFuncionarioConsultar As FrmFuncionarioConsultar
        FrmFuncionarioConsultar = New FrmFuncionarioConsultar
        FrmFuncionarioConsultar.Owner = Me
        FrmFuncionarioConsultar.ShowDialog()

        If Not IsNothing(FrmFuncionarioConsultar.RowFuncionario) Then
            RowFuncionario = FrmFuncionarioConsultar.RowFuncionario

            txtCDFuncionario.Text = RowFuncionario.IDFuncionario
            txtNome.Text = RowFuncionario.Nome
            txtLogin.Text = RowFuncionario.Login
            txtSenha.Text = RowFuncionario.Senha
            STAtivo.Checked = IIf(RowFuncionario.STAtivo, True, False)
            STProfessor.Checked = IIf(RowFuncionario.STProfessor, True, False)

            btnAlterar.Enabled = True
            btnCancelar.Enabled = True

        End If

    End Sub

    Private Sub btnIncluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIncluir.Click

        If sender.text = strIncluir Then
            txtLogin.Enabled = True
            txtNome.Enabled = True
            txtSenha.Enabled = True
            STAtivo.Enabled = True
            STProfessor.Enabled = True
            btnAlterar.Enabled = False
            btnConsultar.Enabled = False
            btnIncluir.Text = strIncluirConfirmar
            LimparCampos(Me)
            STAtivo.Checked = True
        Else

            If Trim(txtNome.Text) = "" Then
                MsgBox("Preenchimento do Campo Nome obrigatório!")
                txtNome.Focus()
                Exit Sub
            End If

            If Trim(txtLogin.Text) = "" Then
                MsgBox("Preenchimento do Campo Login obrigatório!")
                txtNome.Focus()
                Exit Sub
            End If

            If Trim(txtSenha.Text) = "" Then
                MsgBox("Preenchimento do Campo Senha obrigatório!")
                txtNome.Focus()
                Exit Sub
            End If

            If Not Trim(txtLogin.Text) = "" Then
                Dim Retorno As New List(Of SPFuncionarioConsultarResult)
                Retorno = db.SPFuncionarioConsultar(0, txtLogin.Text).ToList()
                If Retorno.Count > 0 Then
                    If txtLogin.Text = Retorno(0).Login Then
                        MsgBox("Este Login já está cadastrado, favor digitar login diferente!", MsgBoxStyle.Information)
                        txtLogin.Focus()
                        Exit Sub
                    End If
                End If
            End If

            db.SPFuncionarioIncluir(txtNome.Text, txtLogin.Text, txtSenha.Text, IIf(STAtivo.Checked = True, True, False), IIf(STProfessor.Checked = True, True, False)).ToString()

            'txtCDFuncionario.Text = Convert.ToString(RowFuncionarioIncluido.IDFuncionario)


            txtLogin.Enabled = False
            txtNome.Enabled = False
            txtSenha.Enabled = False
            STAtivo.Enabled = False
            STProfessor.Enabled = False
            btnAlterar.Enabled = False
            btnConsultar.Enabled = True
            btnIncluir.Enabled = True
            btnIncluir.Text = strIncluir


            MsgBox("Funcionario incluido com sucesso!", MsgBoxStyle.Information)

        End If





    End Sub

    Private Sub FrmFuncionario_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        txtLogin.Enabled = False
        txtNome.Enabled = False
        txtSenha.Enabled = False
        STAtivo.Enabled = False
        STProfessor.Enabled = False
        btnAlterar.Enabled = False
        btnConsultar.Enabled = True
        btnIncluir.Enabled = True

    End Sub

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click

        txtLogin.Enabled = False
        txtNome.Enabled = False
        txtSenha.Enabled = False
        STAtivo.Enabled = False
        STProfessor.Enabled = False
        btnAlterar.Enabled = False
        btnConsultar.Enabled = True
        btnIncluir.Text = True
        btnIncluir.Text = strIncluir
        LimparCampos(Me)

    End Sub

    Private Sub btnAlterar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlterar.Click

        If sender.text = strAlterar Then
            txtLogin.Enabled = True
            txtNome.Enabled = True
            txtSenha.Enabled = True
            STAtivo.Enabled = True
            STProfessor.Enabled = True
            btnAlterar.Text = strAlterarConfirmar
            btnConsultar.Enabled = False
            btnIncluir.Enabled = False
        Else
            If Trim(txtNome.Text) = "" Then
                MsgBox("Preenchimento do Campo Nome obrigatório!")
                txtNome.Focus()
                Exit Sub
            End If

            If Trim(txtLogin.Text) = "" Then
                MsgBox("Preenchimento do Campo Login obrigatório!")
                txtNome.Focus()
                Exit Sub
            End If

            If Trim(txtSenha.Text) = "" Then
                MsgBox("Preenchimento do Campo Senha obrigatório!")
                txtNome.Focus()
                Exit Sub
            End If

            Dim Id As Integer
            Id = Convert.ToInt32(txtCDFuncionario.Text)

            db.SPFuncionarioAlterar(Id, txtNome.Text, txtLogin.Text, txtSenha.Text, IIf(STAtivo.Checked = True, True, False), IIf(STProfessor.Checked = True, True, False)).ToString()

            txtLogin.Enabled = False
            txtNome.Enabled = False
            txtSenha.Enabled = False
            STAtivo.Enabled = False
            STProfessor.Enabled = False
            btnAlterar.Text = strAlterar
            btnConsultar.Enabled = True
            btnIncluir.Enabled = True

            MsgBox("Funcionario alterado com sucesso!", MsgBoxStyle.Information)

        End If

    End Sub
End Class
